package Catalyst::Plugin::HTMLClean;
use warnings;
use strict;
use HTML::Clean;

sub clean {

    my $c         = shift;
    my $htmlref = shift;
    my $h = HTML::Clean->new($htmlref);
    $h->strip;

    my $newref = $h->data;
    $$htmlref = $$newref;

    return;

}

1;
